10 PRINT "EXAMPLE 10.2 HOMOLOGOUS CHARACTERISTICS": PRINT
12 PRINT : PRINT "EXAMPLE 10.2 HOMOLOGOUS CHARACTERISTICS OF TURBOMACHINARY": PRINT
20 DEFINT I: DIM H1(20), Q1(20), E(20), H(20), Q(20)
30 FOR I = 1 TO 15: READ H1(I): NEXT I
40 DATA 60., 57.5, 55., 52.5, 50., 47.5, 45., 42.5, 40., 37.5, 35., 32.5, 30., 27.5, 25.
50 PRINT : PRINT "H1="; : FOR I = 1 TO 15: PRINT USING "##.# "; H1(I); : NEXT I: PRINT
60 FOR I = 1 TO 15: READ Q1(I): NEXT I
70 DATA 200., 228., 256., 280., 303., 330., 345., 362., 382., 396., 411., 425., 438., 449., 459.
80 PRINT : PRINT "Q="; : FOR I = 1 TO 15: PRINT USING "###.# "; Q1(I); : NEXT I: PRINT
90 FOR I = 1 TO 15: READ E(I): NEXT I
100 DATA 69., 75., 80., 83.7, 86., 87.3, 88., 87.4, 86.3, 84.4, 82., 79., 75., 71., 66.5
110 PRINT : PRINT "E="; : FOR I = 1 TO 15: PRINT USING "##.# "; E(I); : NEXT I: PRINT
120 EE = 0!
122 FOR I = 1 TO 15
124 IF E(I) > EE THEN II = I: EE = E(I)
127 REM PRINT "I,II,E(I)="; I; II; EE
128 NEXT I
130 PRINT "II,E(I)="; II; EE
140 READ HH, QQ, NSYN, D1, N1: DATA 60., 200., 3600., 72., 225
150 PRINT "HH, QQ, NSYN, D1, N1="; HH; QQ; NSYN; D1; N1
160 D = ((QQ / Q1(II)) ^ 2 * H1(II) / HH) ^ .25 * D1: N = N1 * SQR(HH / H1(II)) * D1 / D
170 PRINT "D,N="; D; N: I = FIX(NSYN / N): REM PRINT I
180 NN1 = FIX(NSYN / I): NN2 = FIX(NSYN / (I + 1)): PRINT "N,NN1,NN2="; N; NN1; NN2
190 IF (NN1 - N) < (N - NN2) THEN N = NN1 ELSE N = NN2
200 D = D1 * N1 * SQR(HH / H1(II)) / N: QQ = (D / D1) ^ 3 * N * Q1(II) / N1: PRINT "D,N,QQ="; D; N; QQ
210 C1 = (N * D / (N1 * D1)) ^ 2: C2 = (D / D1) ^ 3 * N / N1
220 FOR I = 1 TO 15: H(I) = C1 * H1(I): Q(I) = C2 * Q1(I): NEXT I
230 PRINT : PRINT "H="; : FOR I = 1 TO 15: PRINT USING " ###.#"; H(I); : NEXT I: PRINT
240 PRINT "Q="; : FOR I = 1 TO 15: PRINT USING " ###.#"; Q(I); : NEXT I: PRINT